Bài 1

Var s,i:integer;

tb:real;

Begin

Write('Nhap n = ');readln(n);

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

Bài 2

Var i,n,souoc:integer;

Begin

Write('Nhap n = ');readln(n);

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

program CompareNumbers;

var
  x, y: real;

begin
  // Bước 1: Nhập 2 số thực x và y từ bàn phím
  write('Nhap so thuc x: ');
  readln(x);

  write('Nhap so thuc y: ');
  readln(y);

  // Bước 2: So sánh x và y, in ra số lớn hơn
  if x > y then
    writeln('x lon hon y')
  else if x < y then
    writeln('y lon hon x')
  else
    writeln('x bang y');

  readln;
end.

(khoog bt đúng ko)

uses crt;

var a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

uses crt;

var i,n,x:integer;

kt:boolean;

begin

clrscr;

write('Nhap n='); readln(n);

write('Nhap x='); readln(x);

kt:=false;

for i:=1 to n do 

  if x=i then kt:=true;

if kt=true then writeln('Co')

else writeln('Khong');

readln;

end.

Program HOC24;

Var d,i,n,x: integer;

Begin

write('Nhap N :'); readln(n);

write('Nhap X : '); readln(x);

d:=0;

for i:=1 to n do if i = x then 

begin

write('Trong pham vi tu 1 den ',n,' co so bang ',x);

d:=d+1;

break;

end;

if d=0 then write('Khong co so nao bang ',x,' trong day tu 1 den ',n);

readln

end.

nếu có đk bạn làm thế nào

TA có x+y=1=>x=1-y=>xy=y(1-y)=y-y^2=-(y^2-y+1/4)+1/4=-(y-1/2)^2+1/4<=1/4

=>2xy<=1/2=>1-2xy>=1/2 . rồi bạn tiếp tục cm như bài cũ

\(x^3+y^3+xy\)

\(=\left(x+y\right)\left(x^2-xy+y^2\right)+xy\)

\(=x^2+y^2\)

Áp dụng BĐT Bunhiacopxki ta có:

\(\left(1+1\right)\left(x^2+y^2\right)\ge\left(x+y\right)^2=1\)

\(\Leftrightarrow x^2+y^2\ge\frac{1}{2}\)

Dấu " = " xảy ra <=> x=y=0,5

Nếu không dùng Bunhiacopxki thì:

c/m \(x^2+y^2\ge2xy\left(t\text{ự}cm\right)\)

\(\Rightarrow2\left(x^2+y^2\right)\ge x^2+y^2+2xy=1\)

=> ...

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin >>x>>y;

cout<<x<<" "<<y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

Có một quy luật khi mà so sánh \(\left|x\right|\)với số \(a\) như sau:

Nhỏ thì ấp ủ: \(\left|x\right|\le a\Leftrightarrow-a\le x\le a\)

Lớn thì tung cánh: \(\left|x\right|\ge a\Leftrightarrow\orbr{\begin{cases}x\ge a\\x\le-a\end{cases}}\)

Như vậy \(\left|x\right|< 3\Leftrightarrow-3< x< 3\)

thi thì bn phải tự làm

xíu các bn nhớ vào đây để hỗ trợ mn thi toán nha

700